Option Strict Off
Option Explicit On

Public Class ErrorWeb
    Private m_Code As String
    Private m_Description As String

    Public ReadOnly Property Key() As String
        Get
            Return "k" & Code
        End Get
    End Property

    Public Property Code() As String
        Get
            Return m_Code
        End Get
        Set(ByVal Value As String)
            m_Code = Value
        End Set
    End Property

    Public Property Description() As String
        Get
            Return m_Description
        End Get
        Set(ByVal Value As String)
            m_Description = Value
        End Set
    End Property

    Public Overrides Function ToString() As String
        Return "[" & m_Code & "] " & m_Description
    End Function
End Class